home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 23
/
023.d81
/
trig calc
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
8KB
|
299 lines
5 gosub60000
10 print"[147]":poke53280,6:poke53281,15
20 printtab(240)tab(40)" [146]"
30 print" trigonometric computations [146]"
40 print" [146]"
50 printtab(243)" how many decimal places? (1-4) ":wait198,1:geto0$:o0=val(o0$)
60 poke198,0:ifo0<1oro0>4thenprint"[145][145][145][145][145][145][145][145]":goto50
70 s$="s -":ifo0=1thens$=" -"
80 print"[145] answers will be rounded to"o0"place"s$::fori=1to2000:next
90 ry=10^o0:deffnrn(q)=int(q*ry+.5)/ry
100 x=0:z=0:b=0:a=0:c=0:poke53280,11:poke53281,15:print"[144]"
110 print"[147]"
120 print" x
130 [153]" sgn(NULL)
140 print" [180] [205]
150 [153]" sgn (NULL)
160 print" b[180] [205]a
170 [153]" sgn (NULL)
180 print" [180] [205]
190 [153]" sgn (NULL)
200 print" [144]90[183][183][183][183][183][183][183][183]z
210 [153]" c
220 print" [146] [146][144]"
230 print" [146] [146][144]"
240 print"[145][145] [146] select your two 'knowns' [146] [146][144]"
250 k$="":printtab(96)"[192]> [191][191] <[192][157][157][157][157][157]";:poke204,0
260 getkk$:printkk$;:k$=k$+kk$:iflen(k$)<2then260
270 poke204,1:print"[145]"
280 ifk$="bc"ork$="cb"then960
290 ifk$="ab"ork$="ba"then1110
300 ifk$="ac"ork$="ca"then1280
310 ifk$="ax"ork$="xa"then1450
320 ifk$="az"ork$="za"then1650
330 ifk$="bx"ork$="xb"then1850
340 ifk$="bz"ork$="zb"then2050
350 ifk$="cx"ork$="xc"then2240
360 ifk$="cz"ork$="zc"then2410
370 ifk$="xz"ork$="zx"then2590
380 ifk$="34"thenload"hello connect",8
390 k$="":print"[145][145][145]":goto 110
400 print"[147]"
410 print""
420 print" [180][205]
430 [153]" sgn (NULL)
440 print" [180] [205]
450 [153]" sgn (NULL)
460 print" [180] [205]
470 [153]" sgn (NULL)
480 print" [180] [205]
490 [153]" stop90usrusrusrusrusrusrusrusr"
500 [153]"
510 print" [145][145][145][145][145][145][145][145][145][145]";x
520 printtab(24)"";right$(str$(z),2)
530 printtab(21)"[145][145][145][145][145]";a
540 printtab(13)"[145]";b
550 printtab(18)"";c
560 printtab(211)" [146][144]"
570 printtab(11)" [146] correct (y/n) [146] [146][144]"
580 printtab(11)" [146][144]"
590 geta$:ifa$=""then590
600 ifa$="y"thenreturn
610 goto100
620 rem - angle express in radians = angle/57.2958
630 aa=a
640 ab=b
650 ac=c
660 aa=sqr((b*b)+(c*c)):aa=fnrn(aa)
670 ab=sqr((a*a)-(c*c)):ab=fnrn(ab)
680 ac=sqr((a*a)-(b*b)):ac=fnrn(ac)
690 print"[147]"
700 print" x
710 [153]" sgn(NULL)
720 print" [180] [205]
730 [153]" sgn (NULL)
740 print" b[180] [205]a
750 [153]" sgn (NULL)
760 print" [180] [205]
770 [153]" sgn (NULL)
780 print" [144]90[183][183][183][183][183][183][183][183]z
790 [153]" cstop"
800 [153]" sine angle 'x' =";xs
810 [153]" cos angle 'x' =";xc
820 [153]" angle wait 'x' =";xx"degrees"
830 [153]" stopsine angle 'z' =";zs
840 [153]" cos angle 'z' =";zc
850 [153]" tan angle 'z' =";zt
860 [153]" angle wait 'z' =";zz "degrees"
870 [153]" stoplength side 'a' =";aa
880 [153]" length side 'b' =";ab
890 [153]" length side 'c' =";ac
900 [153][163]43)"verify another(y/n) : change decimal(.) "
910 [161]a$:[139]a$[178]""[167]910
920 [139]a$[178]"."[167][153]"onononononononon":[137]50
930 [139]a$[178]"y"[167]100
940 [139]a$[178]"n"[167][147]"hello connect",8
950 [137]910
960 [133]" side b =";b$:b[178][197](b$):[139]b[178]0[167][153]"onononon":[137]960
970 [133]" side c =";c$:c[178][197](c$):[139]c[178]0[167][153]"ononon":[137]970
980 [141]400
990 aa[178][186]((b[172]b)[170](c[172]c)):aa[178][165]rn(aa)
995 [139] d0 [167] [153]"loadwow! division by zero error!!!":[129]t[178]1[164]1800:[130]:[138]10
997 [139] aa[178]0 [167] d0[178][171]1:[137]995
998 [139] c[178]0[167] d0[178][171]1:[137]995
1000 ab[178]b:ac[178]c
1010 zs[178]b[173]aa:zs[178][165]rn(zs)
1020 xs[178]c[173]aa:xs[178][165]rn(xs)
1030 zc[178]c[173]aa:zc[178][165]rn(zc)
1040 zt[178]b[173]c:zt[178][165]rn(zt)
1050 xc[178]b[173]aa:xc[178][165]rn(xc)
1060 zz[178]([193](zt))[172]57.2958:zz[178][165]rn(zz)
1070 xx[178]90[171]zz:xx[178][165]rn(xx)
1080 [143] - radians = 57.2958
1090 [143] - angle express in radians = angle/57.2958
1100 [137]690
1110 [133]" side a =";a$:a[178][197](a$):[139]a[178]0[167][153]"onononon":[137]1110
1120 [133]" side b =";b$:b[178][197](b$):[139]b[178]0[167][153]"ononon":[137]1120
1130 [139]b[178][177]a[167][153][163]11)"on onon":[137]1120
1140 [141]400
1150 ac[178][186]((a[172]a)[171](b[172]b)):ac[178][165]rn(ac)
1160 aa[178]a
1170 ab[178]b
1175 [139]a[178]0[167]d0[178][171]1:[137]995
1176 [139]ac[178]0[167]d0[178][171]1:[137]995
1180 zs[178]b[173]a:zs[178][165]rn(zs)
1190 xs[178]ac[173]a:xs[178][165]rn(xs)
1200 zc[178]ac[173]a:zc[178][165]rn(zc)
1210 zt[178]b[173]ac:zt[178][165]rn(zt)
1220 xc[178]b[173]a:xc[178][165]rn(xc)
1230 zz[178]([193](zt))[172]57.2958:zz[178][165]rn(zz)
1232 [139] zs[178]0 [167]d0[178][171]1:[137]995
1234 [139] aa[178]0 [167]d0[178][171]1:[137]995
1235 [139] ac[178]0 [167]d0[178][171]1:[137]995
1240 xx[178]90[171]zz:xx[178][165]rn(xx)
1250 [143] - radians = 57.2958
1260 [143] - angle express in radians = angle/57.2958
1270 [137]690
1280 [133]" side a =";a$:a[178][197](a$):[139]a[178]0[167][153]"onononon":[137]1280
1290 [133]" side c =";c$:c[178][197](c$):[139]c[178]0[167][153]"ononon":[137]1290
1300 [139]c[178][177]a[167][153][163]11)"on onon":[137]1290
1310 [141]400
1320 ab[178][186]((a[172]a)[171](c[172]c)):ab[178][165]rn(ab)
1330 aa[178]a
1340 ac[178]c
1345 [139] a[178]0 [167] d0[178][171]1:[137]995
1347 [139] c[178]0 [167] d0[178][171]1:[137]995
1350 zs[178]ab[173]a:zs[178][165]rn(zs)
1360 xs[178]c[173]a:xs[178][165]rn(xs)
1370 zc[178]c[173]a:zc[178][165]rn(zc)
1380 zt[178]ab[173]c:zt[178][165]rn(zt)
1390 xc[178]ab[173]a:xc[178][165]rn(xc)
1400 zz[178]([193](zt))[172]57.2958:zz[178][165]rn(zz)
1410 xx[178]90[171]zz:xx[178][165]rn(xx)
1420 [143] - radians = 57.2958
1430 [143] - angle express in radians = angle/57.2958
1440 [137]690
1450 [133]" side a =";a$:a[178][197](a$):[139]a[178]0[167][153]"onononon":[137]1450
1460 [133]" angle x =";x$:x[178][197](x$):[139]x[178]0[167][153]"ononon":[137]1460
1470 [139]x[177]89[167][153][163]12)"on onon":[137]1460
1480 [141]400
1490 y[178]90
1500 xx[178]x
1510 zz[178]y[171]x:zz[178][165]rn(zz)
1520 xc[178][190](x[173]57.2958):xc[178][165]rn(xc)
1530 b[178]a[172]xc:b[178][165]rn(b)
1540 xs[178][191](x[173]57.2958):xs[178][165]rn(xs)
1550 ab[178]a[172]xc:ab[178][165]rn(ab)
1560 ac[178]a[172]xs:ac[178][165]rn(ac)
1570 z[178]y[171]x:z[178][165]rn(z)
1572 [139] a[178]0[167]d0[178][171]1:[137]995
1573 [139] ac[178]0[167]d0[178][171]1:[137]995
1580 zc[178]ac[173]a:zc[178][165]rn(zc)
1590 zt[178]ab[173]ac:zt[178][165]rn(zt)
1600 zs[178]ab[173]a:zs[178][165]rn(zs)
1610 aa[178]a
1620 [143] - radians = 57.2958
1630 [143] - angle express in radians = angle/57.2958
1640 [137]690
1650 [133]" side a =";a$:a[178][197](a$):[139]a[178]0[167][153]"onononon":[137]1650
1660 [133]" angle z =";z$:z[178][197](z$):[139]z[178]0[167][153]"ononon":[137]1660
1670 [139]z[177]89[167][153][163]12)"on onon":[137]1660
1680 [141]400
1690 y[178]90
1700 zz[178]z
1710 aa[178]a
1720 zc[178][190](z[173]57.2958):zc[178][165]rn(zc)
1730 ac[178]a[172]zc:ac[178][165]rn(ac)
1740 zs[178][191](z[173]57.2958):zs[178][165]rn(zs)
1750 ab[178]a[172]zc:ab[178][165]rn(ab)
1760 ac[178]a[172]zs:ac[178][165]rn(ac)
1770 x[178]y[171]z:x[178][165]rn(x)
1772 [139] ac[178]0 [167] d0[178][171]1:[137]995
1773 [139] a[178]0 [167] d0[178][171]1:[137]995
1780 zt[178]ab[173]ac:zt[178][165]rn(zt)
1790 xs[178]ab[173]a:xs[178][165]rn(xs)
1800 xx[17